home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / hydra_icq.nasl < prev    next >
Encoding:
Text File  |  2005-03-31  |  3.6 KB  |  106 lines
  1. #TRUSTED a6f5955a29326aea352e088da84ac2b8ed6359d5992be59f0a0e1ae9462e22c379046c66169e9764451d9fa9b0a10d58fe7ece31528909350081b3546b6dc42d3fd3a05bd3ff52d4a184337d5a475423233c85fbbfae3598a9cd837b34810469c6cd976e25c271492a53907b3359e39654e3f7f8ed50439b71b32c8ca7d9721d13201ad9f8f2a549e1c415c0b41166e493873a1765921f651d1617d6173400473e587194b8a9caa23e5c34f6fb9e2cee3c70dfa98fadbac5707121b42a8a0a7002bda0c8bd914f43434916010a7d166d914432b4cff8d53972d1505251af4b0c659750a68b1c462d4970c3bc4a05981b50ef21cb77e5e0ce4aca3f0fa346f9a8acf600b7c8bd20098c05663d563a073c8d71ce211d5362db417ec00c7bb3eafc08854bb0ad372e4003160bcd402890adfcbacb92b573419b3638fdfbf802a5957db7ca3dcba93b5e19cbacae6d9632f707840edc8177a02b2a2a6fef07d7b317f4c94503efce64fe5f13d08d57589a737557d9ba451bd3a0b4c252adc13f14bdafb3489aa03e49d790a80f00990b3cd6c95a158d37acc630d9c638f7bee487047b4ecae7f1b15e7bde08f476b3f065a2c0a2f5b498da0bd44933aabc0dbd0353423cd54b8cf6f7b5637247c48c9446bdbd96a603f7ce6cc1b3be613fc8aa9c975b871896091d0c6b0eb33fefeb8d497a2de8d3f8ee921656764db591e26a988d
  2. #
  3. # This script was written by Michel Arboi <arboi@alussinan.org>
  4. #
  5. # GPL
  6. #
  7.  
  8. if (! defined_func("script_get_preference_file_location")) exit(0);
  9. if (! find_in_path("hydra")) exit(0);
  10.  
  11.  
  12. if(description)
  13. {
  14.  script_id(15875);
  15.  script_version ("1.2");
  16.  name["english"] = "Hydra: ICQ";
  17.  script_name(english:name["english"]);
  18.  
  19.  desc["english"] = "
  20. This plugin runs Hydra to find ICQ accounts & passwords by brute force.
  21.  
  22. See the section 'plugins options' to configure it
  23. ";
  24.  
  25.  script_description(english:desc["english"]);
  26.  
  27.  summary["english"] = "Brute force ICQ authentication with Hydra";
  28.  script_summary(english:summary["english"]);
  29.  
  30.  script_category(ACT_ATTACK);
  31.  
  32.  script_copyright(english:"This script is Copyright (C) 2004 Michel Arboi");
  33.  script_family(english:"Brute force attacks");
  34.  script_require_keys("Secret/hydra/logins_file", "Secret/hydra/passwords_file");
  35.  script_require_ports("Services/icq", 5190);
  36.  script_dependencies("hydra_options.nasl", "find_service.nes");
  37.  exit(0);
  38. }
  39.  
  40. #
  41.  
  42. throrough = get_kb_item("global_settings/thorough_tests");
  43. if ("yes" >!< throrough) exit(0);
  44. logins = get_kb_item("Secret/hydra/logins_file");
  45. passwd = get_kb_item("Secret/hydra/passwords_file");
  46. if (logins == NULL || passwd == NULL) exit(0);
  47.  
  48. port = get_kb_item("Services/icq");
  49. if (! port) port = 5190;
  50. if (! get_port_state(port)) exit(0);
  51.  
  52. timeout = get_kb_item("/tmp/hydra/timeout"); timeout = int(timeout);
  53. tasks = get_kb_item("/tmp/hydra/tasks"); task = int(tasks);
  54.  
  55. empty = get_kb_item("/tmp/hydra/empty_password");
  56. login_pass = get_kb_item("/tmp/hydra/login_password");
  57. exit_asap = get_kb_item("/tmp/hydra/exit_ASAP");
  58. tr = get_kb_item("Transports/TCP/"+port);
  59.  
  60. i = 0;
  61. argv[i++] = "hydra";
  62. argv[i++] = "-s"; argv[i++] = port;
  63. argv[i++] = "-L"; argv[i++] = logins;
  64. argv[i++] = "-P"; argv[i++] = passwd;
  65. s = "";
  66. if (empty) s = "n";
  67. if (login_pass) s+= "s";
  68. if (s)
  69. {
  70.   argv[i++] = "-e"; argv[i++] = s;
  71. }
  72. if (exit_asap) argv[i++] = "-f";
  73. if (tr >= ENCAPS_SSLv2) argv[i++] = "-S";
  74.  
  75. if (timeout > 0)
  76. {
  77.   argv[i++] = "-w";
  78.   argv[i++] = timeout;
  79. }
  80. if (tasks > 0)
  81. {
  82.   argv[i++] = "-t";
  83.   argv[i++] = tasks;
  84. }
  85.  
  86. argv[i++] = get_host_ip();
  87. argv[i++] = "icq";
  88.  
  89. report = "";
  90. results = pread(cmd: "hydra", argv: argv, nice: 5);
  91. foreach line (split(results))
  92. {
  93.   v = eregmatch(string: line, pattern: 'host:.*login: *(.*) password: *(.*)$');
  94.   if (! isnull(v))
  95.   {
  96.     l = chomp(v[1]);
  97.     p = chomp(v[2]);
  98.     report = strcat(report, 'login: ', l, '\tpassword: ', p, '\n');
  99.     set_kb_item(name: 'Hydra/icq/'+port, value: l + '\t' + p);
  100.   }
  101. }
  102.  
  103. if (report)
  104.   security_hole(port: port, 
  105.     data: 'Hydra was able to break the following ICQ accounts:\n' + report);
  106.